{
  Copyright 2009 Edumandriva (http://edumandriva.ru) by Alexander Kazancev (kazancas@gmail.com)
  
  This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation; either version 3 of the License, or
  (at your option) any later version.
        
  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.
        
  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  MA 02110-1301, USA.    
}

unit SetupAll;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, IpHtml, Ipfilebroker, Grids, Buttons, XMLCfg, Process, about,
  {$IFDEF WIN32}
  Registry;
  {$ENDIF}

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Image10: TImage;
    Image100: TImage;
    Image101: TImage;
    Image102: TImage;
    Image103: TImage;
    Image104: TImage;
    Image105: TImage;
    Image106: TImage;
    Image107: TImage;
    Image108: TImage;
    Image_fon1: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image2: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    Image29: TImage;
    Image3: TImage;
    Image30: TImage;
    Image31: TImage;
    Image32: TImage;
    Image33: TImage;
    Image34: TImage;
    Image35: TImage;
    Image36: TImage;
    Image37: TImage;
    Image38: TImage;
    Image39: TImage;
    Image4: TImage;
    Image40: TImage;
    Image41: TImage;
    Image42: TImage;
    Image43: TImage;
    Image44: TImage;
    Image45: TImage;
    Image46: TImage;
    Image47: TImage;
    Image48: TImage;
    Image49: TImage;
    Image5: TImage;
    Image50: TImage;
    Image51: TImage;
    Image52: TImage;
    Image53: TImage;
    Image54: TImage;
    Image55: TImage;
    Image56: TImage;
    Image57: TImage;
    Image58: TImage;
    Image59: TImage;
    Image6: TImage;
    Image60: TImage;
    Image61: TImage;
    Image62: TImage;
    Image63: TImage;
    Image64: TImage;
    Image65: TImage;
    Image66: TImage;
    Image67: TImage;
    Image68: TImage;
    Image69: TImage;
    Image7: TImage;
    Image70: TImage;
    Image71: TImage;
    Image72: TImage;
    Image73: TImage;
    Image74: TImage;
    Image75: TImage;
    Image76: TImage;
    Image77: TImage;
    Image78: TImage;
    Image79: TImage;
    Image8: TImage;
    Image80: TImage;
    Image81: TImage;
    Image82: TImage;
    Image83: TImage;
    Image84: TImage;
    Image85: TImage;
    Image86: TImage;
    Image87: TImage;
    Image88: TImage;
    Image89: TImage;
    Image9: TImage;
    Image90: TImage;
    Image91: TImage;
    Image92: TImage;
    Image93: TImage;
    Image94: TImage;
    Image95: TImage;
    Image96: TImage;
    Image97: TImage;
    Image98: TImage;
    Image99: TImage;
    Image_fon2: TImage;
    Image_fon3: TImage;
    Image_fon4: TImage;
    Image_fon5: TImage;
    Image_fon6: TImage;
    Image_fon7: TImage;
    Image_fon8: TImage;
    Image_fon9: TImage;
    IpFileDataProvider1: TIpFileDataProvider;
    IpHtmlPanel1: TIpHtmlPanel;
    IpHtmlPanel2: TIpHtmlPanel;
    IpHtmlPanel3: TIpHtmlPanel;
    IpHtmlPanel4: TIpHtmlPanel;
    IpHtmlPanel5: TIpHtmlPanel;
    IpHtmlPanel6: TIpHtmlPanel;
    IpHtmlPanel7: TIpHtmlPanel;
    IpHtmlPanel8: TIpHtmlPanel;
    IpHtmlPanel9: TIpHtmlPanel;
    Label1: TLabel;
    Notebook1: TNotebook;
    Page1: TPage;
    Page2: TPage;
    Page3: TPage;
    Page4: TPage;
    Page5: TPage;
    Page6: TPage;
    Page7: TPage;
    Page8: TPage;
    Page9: TPage;
    PageControl1: TPageControl;
    XMLConfig1: TXMLConfig;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image100Click(Sender: TObject);
    procedure Image100MouseEnter(Sender: TObject);
    procedure Image100MouseLeave(Sender: TObject);
    procedure Image101Click(Sender: TObject);
    procedure Image101MouseEnter(Sender: TObject);
    procedure Image101MouseLeave(Sender: TObject);
    procedure Image102Click(Sender: TObject);
    procedure Image102MouseEnter(Sender: TObject);
    procedure Image102MouseLeave(Sender: TObject);
    procedure Image103Click(Sender: TObject);
    procedure Image103MouseEnter(Sender: TObject);
    procedure Image103MouseLeave(Sender: TObject);
    procedure Image104Click(Sender: TObject);
    procedure Image104MouseEnter(Sender: TObject);
    procedure Image104MouseLeave(Sender: TObject);
    procedure Image105Click(Sender: TObject);
    procedure Image105MouseEnter(Sender: TObject);
    procedure Image105MouseLeave(Sender: TObject);
    procedure Image106Click(Sender: TObject);
    procedure Image106MouseEnter(Sender: TObject);
    procedure Image106MouseLeave(Sender: TObject);
    procedure Image107Click(Sender: TObject);
    procedure Image107MouseEnter(Sender: TObject);
    procedure Image107MouseLeave(Sender: TObject);
    procedure Image108Click(Sender: TObject);
    procedure Image108MouseEnter(Sender: TObject);
    procedure Image108MouseLeave(Sender: TObject);
    procedure Image10Click(Sender: TObject);
    procedure Image10MouseEnter(Sender: TObject);
    procedure Image10MouseLeave(Sender: TObject);
    procedure Image11Click(Sender: TObject);
    procedure Image11MouseEnter(Sender: TObject);
    procedure Image11MouseLeave(Sender: TObject);
    procedure Image12Click(Sender: TObject);
    procedure Image12MouseEnter(Sender: TObject);
    procedure Image12MouseLeave(Sender: TObject);
    procedure Image13Click(Sender: TObject);
    procedure Image13MouseEnter(Sender: TObject);
    procedure Image13MouseLeave(Sender: TObject);
    procedure Image14Click(Sender: TObject);
    procedure Image14MouseEnter(Sender: TObject);
    procedure Image14MouseLeave(Sender: TObject);
    procedure Image15Click(Sender: TObject);
    procedure Image15MouseEnter(Sender: TObject);
    procedure Image15MouseLeave(Sender: TObject);
    procedure Image16Click(Sender: TObject);
    procedure Image16MouseEnter(Sender: TObject);
    procedure Image16MouseLeave(Sender: TObject);
    procedure Image17Click(Sender: TObject);
    procedure Image17MouseEnter(Sender: TObject);
    procedure Image17MouseLeave(Sender: TObject);
    procedure Image18Click(Sender: TObject);
    procedure Image18MouseEnter(Sender: TObject);
    procedure Image18MouseLeave(Sender: TObject);
    procedure Image19Click(Sender: TObject);
    procedure Image19MouseEnter(Sender: TObject);
    procedure Image19MouseLeave(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Image1MouseEnter(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
    procedure Image20Click(Sender: TObject);
    procedure Image20MouseEnter(Sender: TObject);
    procedure Image20MouseLeave(Sender: TObject);
    procedure Image21Click(Sender: TObject);
    procedure Image21MouseEnter(Sender: TObject);
    procedure Image21MouseLeave(Sender: TObject);
    procedure Image22Click(Sender: TObject);
    procedure Image22MouseEnter(Sender: TObject);
    procedure Image22MouseLeave(Sender: TObject);
    procedure Image23Click(Sender: TObject);
    procedure Image23MouseEnter(Sender: TObject);
    procedure Image23MouseLeave(Sender: TObject);
    procedure Image24Click(Sender: TObject);
    procedure Image24MouseEnter(Sender: TObject);
    procedure Image24MouseLeave(Sender: TObject);
    procedure Image25Click(Sender: TObject);
    procedure Image25MouseEnter(Sender: TObject);
    procedure Image25MouseLeave(Sender: TObject);
    procedure Image26Click(Sender: TObject);
    procedure Image26MouseEnter(Sender: TObject);
    procedure Image26MouseLeave(Sender: TObject);
    procedure Image27Click(Sender: TObject);
    procedure Image27MouseEnter(Sender: TObject);
    procedure Image27MouseLeave(Sender: TObject);
    procedure Image28Click(Sender: TObject);
    procedure Image28MouseEnter(Sender: TObject);
    procedure Image28MouseLeave(Sender: TObject);
    procedure Image29Click(Sender: TObject);
    procedure Image29MouseEnter(Sender: TObject);
    procedure Image29MouseLeave(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image2MouseEnter(Sender: TObject);
    procedure Image2MouseLeave(Sender: TObject);
    procedure Image30Click(Sender: TObject);
    procedure Image30MouseEnter(Sender: TObject);
    procedure Image30MouseLeave(Sender: TObject);
    procedure Image31Click(Sender: TObject);
    procedure Image31MouseEnter(Sender: TObject);
    procedure Image31MouseLeave(Sender: TObject);
    procedure Image32Click(Sender: TObject);
    procedure Image32MouseEnter(Sender: TObject);
    procedure Image32MouseLeave(Sender: TObject);
    procedure Image33Click(Sender: TObject);
    procedure Image33MouseEnter(Sender: TObject);
    procedure Image33MouseLeave(Sender: TObject);
    procedure Image34Click(Sender: TObject);
    procedure Image34MouseEnter(Sender: TObject);
    procedure Image34MouseLeave(Sender: TObject);
    procedure Image35Click(Sender: TObject);
    procedure Image35MouseEnter(Sender: TObject);
    procedure Image35MouseLeave(Sender: TObject);
    procedure Image36Click(Sender: TObject);
    procedure Image36MouseEnter(Sender: TObject);
    procedure Image36MouseLeave(Sender: TObject);
    procedure Image37Click(Sender: TObject);
    procedure Image37MouseEnter(Sender: TObject);
    procedure Image37MouseLeave(Sender: TObject);
    procedure Image38Click(Sender: TObject);
    procedure Image38MouseEnter(Sender: TObject);
    procedure Image38MouseLeave(Sender: TObject);
    procedure Image39Click(Sender: TObject);
    procedure Image39MouseEnter(Sender: TObject);
    procedure Image39MouseLeave(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image3MouseEnter(Sender: TObject);
    procedure Image3MouseLeave(Sender: TObject);
    procedure Image40Click(Sender: TObject);
    procedure Image40MouseEnter(Sender: TObject);
    procedure Image40MouseLeave(Sender: TObject);
    procedure Image41Click(Sender: TObject);
    procedure Image41MouseEnter(Sender: TObject);
    procedure Image41MouseLeave(Sender: TObject);
    procedure Image42Click(Sender: TObject);
    procedure Image42MouseEnter(Sender: TObject);
    procedure Image42MouseLeave(Sender: TObject);
    procedure Image43Click(Sender: TObject);
    procedure Image43MouseEnter(Sender: TObject);
    procedure Image43MouseLeave(Sender: TObject);
    procedure Image44Click(Sender: TObject);
    procedure Image44MouseEnter(Sender: TObject);
    procedure Image44MouseLeave(Sender: TObject);
    procedure Image45Click(Sender: TObject);
    procedure Image45MouseEnter(Sender: TObject);
    procedure Image45MouseLeave(Sender: TObject);
    procedure Image46Click(Sender: TObject);
    procedure Image46MouseEnter(Sender: TObject);
    procedure Image46MouseLeave(Sender: TObject);
    procedure Image47Click(Sender: TObject);
    procedure Image47MouseEnter(Sender: TObject);
    procedure Image47MouseLeave(Sender: TObject);
    procedure Image48Click(Sender: TObject);
    procedure Image48MouseEnter(Sender: TObject);
    procedure Image48MouseLeave(Sender: TObject);
    procedure Image49Click(Sender: TObject);
    procedure Image49MouseEnter(Sender: TObject);
    procedure Image49MouseLeave(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image4MouseEnter(Sender: TObject);
    procedure Image4MouseLeave(Sender: TObject);
    procedure Image50Click(Sender: TObject);
    procedure Image50MouseEnter(Sender: TObject);
    procedure Image50MouseLeave(Sender: TObject);
    procedure Image51Click(Sender: TObject);
    procedure Image51MouseEnter(Sender: TObject);
    procedure Image51MouseLeave(Sender: TObject);
    procedure Image52Click(Sender: TObject);
    procedure Image52MouseEnter(Sender: TObject);
    procedure Image52MouseLeave(Sender: TObject);
    procedure Image53Click(Sender: TObject);
    procedure Image53MouseEnter(Sender: TObject);
    procedure Image53MouseLeave(Sender: TObject);
    procedure Image54Click(Sender: TObject);
    procedure Image54MouseEnter(Sender: TObject);
    procedure Image54MouseLeave(Sender: TObject);
    procedure Image55Click(Sender: TObject);
    procedure Image55MouseEnter(Sender: TObject);
    procedure Image55MouseLeave(Sender: TObject);
    procedure Image56Click(Sender: TObject);
    procedure Image56MouseEnter(Sender: TObject);
    procedure Image56MouseLeave(Sender: TObject);
    procedure Image57Click(Sender: TObject);
    procedure Image57MouseEnter(Sender: TObject);
    procedure Image57MouseLeave(Sender: TObject);
    procedure Image58Click(Sender: TObject);
    procedure Image58MouseEnter(Sender: TObject);
    procedure Image58MouseLeave(Sender: TObject);
    procedure Image59Click(Sender: TObject);
    procedure Image59MouseEnter(Sender: TObject);
    procedure Image59MouseLeave(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image5MouseEnter(Sender: TObject);
    procedure Image5MouseLeave(Sender: TObject);
    procedure Image60Click(Sender: TObject);
    procedure Image60MouseEnter(Sender: TObject);
    procedure Image60MouseLeave(Sender: TObject);
    procedure Image61Click(Sender: TObject);
    procedure Image61MouseEnter(Sender: TObject);
    procedure Image61MouseLeave(Sender: TObject);
    procedure Image62Click(Sender: TObject);
    procedure Image62MouseEnter(Sender: TObject);
    procedure Image62MouseLeave(Sender: TObject);
    procedure Image63Click(Sender: TObject);
    procedure Image63MouseEnter(Sender: TObject);
    procedure Image63MouseLeave(Sender: TObject);
    procedure Image64Click(Sender: TObject);
    procedure Image64MouseEnter(Sender: TObject);
    procedure Image64MouseLeave(Sender: TObject);
    procedure Image65Click(Sender: TObject);
    procedure Image65MouseEnter(Sender: TObject);
    procedure Image65MouseLeave(Sender: TObject);
    procedure Image66Click(Sender: TObject);
    procedure Image66MouseEnter(Sender: TObject);
    procedure Image66MouseLeave(Sender: TObject);
    procedure Image67Click(Sender: TObject);
    procedure Image67MouseEnter(Sender: TObject);
    procedure Image67MouseLeave(Sender: TObject);
    procedure Image68Click(Sender: TObject);
    procedure Image68MouseEnter(Sender: TObject);
    procedure Image68MouseLeave(Sender: TObject);
    procedure Image69Click(Sender: TObject);
    procedure Image69MouseEnter(Sender: TObject);
    procedure Image69MouseLeave(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image6MouseEnter(Sender: TObject);
    procedure Image6MouseLeave(Sender: TObject);
    procedure Image70Click(Sender: TObject);
    procedure Image70MouseEnter(Sender: TObject);
    procedure Image70MouseLeave(Sender: TObject);
    procedure Image71Click(Sender: TObject);
    procedure Image71MouseEnter(Sender: TObject);
    procedure Image71MouseLeave(Sender: TObject);
    procedure Image72Click(Sender: TObject);
    procedure Image72MouseEnter(Sender: TObject);
    procedure Image72MouseLeave(Sender: TObject);
    procedure Image73Click(Sender: TObject);
    procedure Image73MouseEnter(Sender: TObject);
    procedure Image73MouseLeave(Sender: TObject);
    procedure Image74Click(Sender: TObject);
    procedure Image74MouseEnter(Sender: TObject);
    procedure Image74MouseLeave(Sender: TObject);
    procedure Image75Click(Sender: TObject);
    procedure Image75MouseEnter(Sender: TObject);
    procedure Image75MouseLeave(Sender: TObject);
    procedure Image76Click(Sender: TObject);
    procedure Image76MouseEnter(Sender: TObject);
    procedure Image76MouseLeave(Sender: TObject);
    procedure Image77Click(Sender: TObject);
    procedure Image77MouseEnter(Sender: TObject);
    procedure Image77MouseLeave(Sender: TObject);
    procedure Image78Click(Sender: TObject);
    procedure Image78MouseEnter(Sender: TObject);
    procedure Image78MouseLeave(Sender: TObject);
    procedure Image79Click(Sender: TObject);
    procedure Image79MouseEnter(Sender: TObject);
    procedure Image79MouseLeave(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image7MouseEnter(Sender: TObject);
    procedure Image7MouseLeave(Sender: TObject);
    procedure Image80Click(Sender: TObject);
    procedure Image80MouseEnter(Sender: TObject);
    procedure Image80MouseLeave(Sender: TObject);
    procedure Image81Click(Sender: TObject);
    procedure Image81MouseEnter(Sender: TObject);
    procedure Image81MouseLeave(Sender: TObject);
    procedure Image82Click(Sender: TObject);
    procedure Image82MouseEnter(Sender: TObject);
    procedure Image82MouseLeave(Sender: TObject);
    procedure Image83Click(Sender: TObject);
    procedure Image83MouseEnter(Sender: TObject);
    procedure Image83MouseLeave(Sender: TObject);
    procedure Image84Click(Sender: TObject);
    procedure Image84MouseEnter(Sender: TObject);
    procedure Image84MouseLeave(Sender: TObject);
    procedure Image85Click(Sender: TObject);
    procedure Image85MouseEnter(Sender: TObject);
    procedure Image85MouseLeave(Sender: TObject);
    procedure Image86Click(Sender: TObject);
    procedure Image86MouseEnter(Sender: TObject);
    procedure Image86MouseLeave(Sender: TObject);
    procedure Image87Click(Sender: TObject);
    procedure Image87MouseEnter(Sender: TObject);
    procedure Image87MouseLeave(Sender: TObject);
    procedure Image88Click(Sender: TObject);
    procedure Image88MouseEnter(Sender: TObject);
    procedure Image88MouseLeave(Sender: TObject);
    procedure Image89Click(Sender: TObject);
    procedure Image89MouseEnter(Sender: TObject);
    procedure Image89MouseLeave(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure Image8MouseEnter(Sender: TObject);
    procedure Image8MouseLeave(Sender: TObject);
    procedure Image90Click(Sender: TObject);
    procedure Image90MouseEnter(Sender: TObject);
    procedure Image90MouseLeave(Sender: TObject);
    procedure Image91Click(Sender: TObject);
    procedure Image91MouseEnter(Sender: TObject);
    procedure Image91MouseLeave(Sender: TObject);
    procedure Image92Click(Sender: TObject);
    procedure Image92MouseEnter(Sender: TObject);
    procedure Image92MouseLeave(Sender: TObject);
    procedure Image93Click(Sender: TObject);
    procedure Image93MouseEnter(Sender: TObject);
    procedure Image93MouseLeave(Sender: TObject);
    procedure Image94Click(Sender: TObject);
    procedure Image94MouseEnter(Sender: TObject);
    procedure Image94MouseLeave(Sender: TObject);
    procedure Image95Click(Sender: TObject);
    procedure Image95MouseEnter(Sender: TObject);
    procedure Image95MouseLeave(Sender: TObject);
    procedure Image96Click(Sender: TObject);
    procedure Image96MouseEnter(Sender: TObject);
    procedure Image96MouseLeave(Sender: TObject);
    procedure Image97Click(Sender: TObject);
    procedure Image97MouseEnter(Sender: TObject);
    procedure Image97MouseLeave(Sender: TObject);
    procedure Image98Click(Sender: TObject);
    procedure Image98MouseEnter(Sender: TObject);
    procedure Image98MouseLeave(Sender: TObject);
    procedure Image99Click(Sender: TObject);
    procedure Image99MouseEnter(Sender: TObject);
    procedure Image99MouseLeave(Sender: TObject);
    procedure Image9Click(Sender: TObject);
    procedure Image9MouseEnter(Sender: TObject);
    procedure Image9MouseLeave(Sender: TObject);
    procedure IpHtmlPanel1HotClick(Sender: TObject);
    procedure IpHtmlPanel2HotClick(Sender: TObject);
    procedure IpHtmlPanel3HotClick(Sender: TObject);
    procedure IpHtmlPanel4HotClick(Sender: TObject);
    procedure IpHtmlPanel5HotClick(Sender: TObject);
    procedure IpHtmlPanel6HotClick(Sender: TObject);
    procedure IpHtmlPanel7HotClick(Sender: TObject);
    procedure IpHtmlPanel8HotClick(Sender: TObject);
    procedure IpHtmlPanel9HotClick(Sender: TObject);
    procedure Notebook1PageChanged(Sender: TObject);
    procedure Page1Enter(Sender: TObject);
    procedure Page2Enter(Sender: TObject);
    procedure Page3Enter(Sender: TObject);
    procedure Page4Enter(Sender: TObject);
    procedure Page5Enter(Sender: TObject);
    procedure Page6Enter(Sender: TObject);
    procedure Page7Enter(Sender: TObject);
    procedure Page8Enter(Sender: TObject);
    procedure Page9Enter(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

    procedure HoverView0(name_prog:string; page_desc:string);
    procedure SelectView0(name_prog:string; page_desc:string; number:integer);
    procedure HoverView1(name_prog:string; page_desc:string);
    procedure SelectView1(name_prog:string; page_desc:string; number:integer);
    procedure HoverView2(name_prog:string; page_desc:string);
    procedure SelectView2(name_prog:string; page_desc:string; number:integer);
    procedure HoverView3(name_prog:string; page_desc:string);
    procedure SelectView3(name_prog:string; page_desc:string; number:integer);
    procedure HoverView4(name_prog:string; page_desc:string);
    procedure SelectView4(name_prog:string; page_desc:string; number:integer);
    procedure HoverView5(name_prog:string; page_desc:string);
    procedure SelectView5(name_prog:string; page_desc:string; number:integer);
    procedure HoverView6(name_prog:string; page_desc:string);
    procedure SelectView6(name_prog:string; page_desc:string; number:integer);
    procedure HoverView7(name_prog:string; page_desc:string);
    procedure SelectView7(name_prog:string; page_desc:string; number:integer);
    procedure HoverView8(name_prog:string; page_desc:string);
    procedure SelectView8(name_prog:string; page_desc:string; number:integer);

var
  Form1: TForm1;
  select_prog:string; //выбранная программа
  select_image:integer; //что выделено

implementation

{ TForm1 }

//создание формы
procedure TForm1.FormCreate(Sender: TObject);
var temp, app_path:string;
    i,page_count:integer;
begin
  app_path:= Application.Location;
  Form1.Icon.LoadFromFile(app_path+'setup.ico');
  Form1.XMLConfig1.Filename := app_path+'\config.xml';
  page_count:= StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''));
  Form1.Label1.Caption := Form1.XMLConfig1.GetValue('Name/Copyright','');
  Form1.Caption:= Form1.XMLConfig1.GetValue('Name/Prog','');
  For i := 0 to page_count -1 do // считываем из config.xml и рисуем вкладки
  begin
   temp := Form1.XMLConfig1.GetValue('Page'+IntToStr(i)+'/Caption','');
   Form1.Notebook1.Page[i].Caption := temp;
  end;
  For i := page_count to 8 do Form1.Notebook1.Page[i].TabVisible:= False;
  Form1.Button1.Enabled:= False;
  Form1.Page1Enter(Form1);
end;

// Page0 
procedure SelectView0(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel1.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;

procedure HoverView0(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel1.SetHtml(opis);
  file_html.Destroy;
 end;

//Page1
 procedure SelectView1(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If (Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog) then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel2.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView1(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel2.SetHtml(opis);
  file_html.Destroy;
 end;
 
 //Page2
 procedure SelectView2(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel3.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView2(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel3.SetHtml(opis);
  file_html.Destroy;
 end;
 
//Page3
 procedure SelectView3(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel4.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView3(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel4.SetHtml(opis);
  file_html.Destroy;
 end;
 
 //Page4
 procedure SelectView4(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel5.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView4(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel5.SetHtml(opis);
  file_html.Destroy;
 end;
 
 //Page5
 procedure SelectView5(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel6.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView5(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel6.SetHtml(opis);
  file_html.Destroy;
 end;
 
 //Page6
 procedure SelectView6(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel7.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView6(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel7.SetHtml(opis);
  file_html.Destroy;
 end;
 
 //Page7
 procedure SelectView7(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel8.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView7(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel8.SetHtml(opis);
  file_html.Destroy;
 end;
 
//Page8
 procedure SelectView8(name_prog:string; page_desc:string; number:integer); //действие при клике по иконке
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
  i:integer;
 begin
  Form1.Button1.Enabled:= True;
  For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=name_prog then Form1.Button1.Caption:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Action','');
  end;
  app_path:= Application.Location;
  if select_image > 0 then TImage(Form1.Components[select_image]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+select_prog+'.jpg');
  select_image:=number;
  select_prog:=name_prog;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHtmlPanel9.SetHtml(opis);
  file_html.Destroy;
  TImage(Form1.Components[number]).Picture.LoadFromFile(app_path+'\description\'+page_desc+'\'+name_prog+'_select.jpg');
 end;
 
procedure HoverView8(name_prog:string; page_desc:string); //действие при наведении на иконку
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path:string;
 begin
  app_path:= Application.Location;
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+ name_prog+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel9.SetHtml(opis);
  file_html.Destroy;
 end;

//Page0 (1)
procedure TForm1.Page1Enter(Sender: TObject); //инициализация вкладки 0
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='0';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel1.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrtoInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
 //Установка фона

 Form1.Image_fon1.Picture.LoadFromFile(app_path+'images\fon1.png');

 end;

//page1 (2)
procedure TForm1.Page2Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='1';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel2.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
 Form1.Image_fon2.Picture.LoadFromFile(app_path+'images\fon2.png');
 end;
 
 //page2 (3)
procedure TForm1.Page3Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='2';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel3.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
 Form1.Image_fon3.Picture.LoadFromFile(app_path+'images\fon3.png');
 end;
 
 //page3 (4)
procedure TForm1.Page4Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='3';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel4.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
 Form1.Image_fon4.Picture.LoadFromFile(app_path+'images\fon4.png');
 end;
 
//page4 (5)
procedure TForm1.Page5Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='4';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel5.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
  Form1.Image_fon5.Picture.LoadFromFile(app_path+'images\fon5.png');
 end;

//page5 (6)
procedure TForm1.Page6Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='5';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel6.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
  Form1.Image_fon6.Picture.LoadFromFile(app_path+'images\fon6.png');
 end;

//page6 (7)
procedure TForm1.Page7Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='6';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel7.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
  Form1.Image_fon7.Picture.LoadFromFile(app_path+'images\fon7.png');
 end;

//page7 (8)
procedure TForm1.Page8Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='7';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel8.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
  Form1.Image_fon8.Picture.LoadFromFile(app_path+'images\fon8.png');
 end;

//page8 (9)
procedure TForm1.Page9Enter(Sender: TObject); //инициализация вкладки 1
 var
  opis: TIpHTML;
  file_html: TFileStream;
  app_path, item_desc, page_desc, page_number:string;
  i,j:integer;
 begin
// Загрузка описания вкладки
  Form1.Button1.Enabled:= False;
  page_number:='8';
  app_path:= Application.Location;
  page_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Description','');
  opis := TIpHTML.Create;
  file_html := TFileStream.Create(app_path+'description\'+page_desc+'\'+page_desc+'.html', 0);
  opis.LoadFromStream(file_html);
  Form1.IpHTMLPanel9.SetHtml(opis);
  file_html.Destroy;
  select_prog:=page_desc;

// Загрузка рисунков и описаний
  For i:=0 to Form1.ComponentCount-1 do

   begin
    For j:=(StrToInt(page_number)*12+1) to (StrToInt(page_number)*12+1)+11 do
     begin
      item_desc:='';
      item_desc:=Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Text','');
      if (Form1.Components[i] is TImage) and (item_desc<>'none') and (TImage(Form1.Components[i]).Name = Form1.XMLConfig1.GetValue('Page'+page_number+'/Item'+IntToStr(j)+'/Item','')) then
       begin
        TImage(Form1.Components[i]).Enabled:= True;
        TImage(Form1.Components[i]).Caption:= IntToStr(i);
        TImage(Form1.Components[i]).Picture.LoadFromFile(app_path+'description\'+page_desc+'\'+item_desc+'.jpg');
       end;
     end;
   end;
   Form1.Image_fon9.Picture.LoadFromFile(app_path+'images\fon9.png');
 end;

//смена вкладок
procedure TForm1.Notebook1PageChanged(Sender: TObject); 
begin
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page1') and (Form1.Page1.TabVisible) then Form1.Page1Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page2') and (Form1.Page2.TabVisible) then Form1.Page2Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page3') and (Form1.Page3.TabVisible) then Form1.Page3Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page4') and (Form1.Page4.TabVisible) then Form1.Page4Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page5') and (Form1.Page5.TabVisible) then Form1.Page5Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page6') and (Form1.Page6.TabVisible) then Form1.Page6Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page7') and (Form1.Page7.TabVisible) then Form1.Page7Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page8') and (Form1.Page8.TabVisible) then Form1.Page8Enter(Form1);
  If (Form1.Notebook1.ActivePageComponent.Name = 'Page9') and (Form1.Page9.TabVisible) then Form1.Page9Enter(Form1);
end;

procedure TForm1.Button1Click(Sender: TObject); //запускаем файл установки или чтение документации
var
   app_path:string;
   i,j:integer;
   ACmd: TProcess; //Задаем класс запуска командной строки
   program_execute, doc_execute:string;
begin
  ACmd := TProcess.Create(nil); //Создаем процесс
  app_path:= Application.Location;
  program_execute:='';
 For i:=1 to StrToInt(Form1.XMLConfig1.GetValue('Count/pages',''))*12 do
  begin
   If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Text','')=select_prog then
    begin
    If Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Run1','')='text' then
      begin
       program_execute:=app_path+'Program\' + Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Run2','');
       doc_execute:=app_path+'Program\' + Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Run3','');
       ACmd.CommandLine := program_execute + ' ' + doc_execute;
       ACmd.Execute;
      end
   else
    for j := 1 to 4 do
    begin
     program_execute:= Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Item'+IntToStr(i)+'/Run'+IntToStr(j),'');
     if (not(program_execute = 'none')) then
      begin
        ACmd.CommandLine := app_path+'Program\'+program_execute;
        ACmd.Options := ACmd.Options + [poWaitOnExit];
        ACmd.Execute;
      end;
     end;
    end;
  end;

end;

//Действия по клику мышкой в описании
//Page1
procedure TForm1.IpHtmlPanel1HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel1.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel1.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page2
procedure TForm1.IpHtmlPanel2HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel2.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel2.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page3
procedure TForm1.IpHtmlPanel3HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel3.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel3.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page4
procedure TForm1.IpHtmlPanel4HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel4.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel4.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page5
procedure TForm1.IpHtmlPanel5HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel5.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel5.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page6
procedure TForm1.IpHtmlPanel6HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel6.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel6.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page7
procedure TForm1.IpHtmlPanel7HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel7.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel7.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page8
procedure TForm1.IpHtmlPanel8HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel8.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel8.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

//Page9
procedure TForm1.IpHtmlPanel9HotClick(Sender: TObject);

var
  NodeA: TIpHtmlNodeA;
  NewFilename: String;
  ACmd: TProcess;
  Reg: TRegistry;
  KeyName: string;
  Def_browser: string;

begin
  if IpHtmlPanel9.HotNode is TIpHtmlNodeA then
   begin
    ACmd := TProcess.Create(nil);
    NodeA:=TIpHtmlNodeA(IpHtmlPanel9.HotNode);
    NewFilename:=NodeA.HRef; //получаем ссылку
    Reg := TRegistry.Create; //считываем из реестра браузер по умолчанию
   try
     Reg.RootKey := HKEY_CLASSES_ROOT;
     KeyName  := 'htmlfile\shell\open\command';
     if Reg.OpenKey(KeyName, False) then
     begin
       Def_browser := Reg.ReadString('');
       Reg.CloseKey;
     end
     else
       ShowMessage('не задан браузер по умолчанию');
     finally
     Reg.Free;
   end;
   ACmd.CommandLine := Def_browser + ' ' + NewFileName; //Формируем ссылку
   ACmd.Execute;
  end;
  ACmd.Free;
end;

procedure TForm1.Button2Click(Sender: TObject); //О программе
var
   app_path:string;
   AExplorer: TProcess;

begin
   AExplorer:=TProcess.Create(nil);
   app_path:= Application.Location;
   AExplorer.CommandLine := 'explorer '+app_path+'Program\'+Form1.XMLConfig1.GetValue('Page'+IntToStr(Form1.Notebook1.ActivePageComponent.PageIndex)+'/Path','');
   AExplorer.Execute;
   AExplorer.Free;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Form2.Show;
end;

//Image1 page0
procedure TForm1.Image1Click(Sender: TObject); //Выбор программы
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item1/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image1.Caption));
end;

procedure TForm1.Image1MouseEnter(Sender: TObject); //Описание программы при наведении на иконку
var item_desc, page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item1/Text','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image2 Page0
procedure TForm1.Image2Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item2/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image2.Caption));

end;

procedure TForm1.Image2MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item2/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
    if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image2MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image3 Page0
procedure TForm1.Image3Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item3/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image3.Caption));

end;

procedure TForm1.Image3MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item3/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image3MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image4 Page0
procedure TForm1.Image4Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item4/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image4.Caption));

end;

procedure TForm1.Image4MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item4/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image4MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image5 Page0
procedure TForm1.Image5Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item5/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image5.Caption));

end;

procedure TForm1.Image5MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item5/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image5MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image6 Page0
procedure TForm1.Image6Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item6/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image6.Caption));

end;

procedure TForm1.Image6MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item6/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image6MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image7 Page0
procedure TForm1.Image7Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item7/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image7.Caption));

end;

procedure TForm1.Image7MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item7/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image7MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image8 Page0
procedure TForm1.Image8Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item8/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image8.Caption));

end;

procedure TForm1.Image8MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item8/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image8MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image9 Page0
procedure TForm1.Image9Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item9/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image9.Caption));

end;

procedure TForm1.Image9MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item9/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image9MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image10 Page0
procedure TForm1.Image10Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item10/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image10.Caption));

end;

procedure TForm1.Image10MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item10/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image10MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image11 Page0
procedure TForm1.Image11Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item11/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image11.Caption));

end;

procedure TForm1.Image11MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item11/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image11MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

//Image12 Page0
procedure TForm1.Image12Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item12/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image12.Caption));

end;

procedure TForm1.Image12MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page0/Item12/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  if item_desc = 'none' then HoverView0(select_prog,page_desc)
  else
   HoverView0(item_desc,page_desc);

end;

procedure TForm1.Image12MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page0/Description','');
  HoverView0(select_prog,page_desc);
end;

// --------------------------------  page 1 ---------------------------------------

//image13 page1
procedure TForm1.Image13Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item13/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image13.Caption));
end;

procedure TForm1.Image13MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item13/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);
end;

procedure TForm1.Image13MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image14 Page1
procedure TForm1.Image14Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item14/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image14.Caption));

end;

procedure TForm1.Image14MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item14/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
    if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image14MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image15 Page1
procedure TForm1.Image15Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item15/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image15.Caption));

end;

procedure TForm1.Image15MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item15/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image15MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image16 Page1
procedure TForm1.Image16Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item16/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image16.Caption));

end;

procedure TForm1.Image16MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item16/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image16MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image17 Page1
procedure TForm1.Image17Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item17/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image17.Caption));

end;

procedure TForm1.Image17MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item17/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image17MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image18 Page1
procedure TForm1.Image18Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item18/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image18.Caption));

end;

procedure TForm1.Image18MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item18/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image18MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image19 Page1
procedure TForm1.Image19Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item19/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image19.Caption));

end;

procedure TForm1.Image19MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item19/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image19MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image20 Page1
procedure TForm1.Image20Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item20/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image20.Caption));

end;

procedure TForm1.Image20MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item20/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image20MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image21 Page1
procedure TForm1.Image21Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item21/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image21.Caption));

end;

procedure TForm1.Image21MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item21/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image21MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image22 Page1
procedure TForm1.Image22Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item22/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image22.Caption));

end;

procedure TForm1.Image22MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item22/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image22MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image23 Page1
procedure TForm1.Image23Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item23/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView0(item_desc,page_desc,StrToInt(Form1.Image23.Caption));

end;

procedure TForm1.Image23MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item23/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image23MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

//Image24 Page1
procedure TForm1.Image24Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item24/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image24.Caption));

end;

procedure TForm1.Image24MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page1/Item24/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  if item_desc = 'none' then HoverView1(select_prog,page_desc)
  else
   HoverView1(item_desc,page_desc);

end;

procedure TForm1.Image24MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page1/Description','');
  HoverView1(select_prog,page_desc);
end;

// --------------------------------  page 2 ---------------------------------------

//image25 page2
procedure TForm1.Image25Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item25/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView2(item_desc,page_desc,StrToInt(Form1.Image25.Caption));
end;

procedure TForm1.Image25MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item25/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);
end;

procedure TForm1.Image25MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image26 Page2
procedure TForm1.Image26Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item26/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image26.Caption));

end;

procedure TForm1.Image26MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item26/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
    if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image26MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image27 Page2
procedure TForm1.Image27Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item27/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image27.Caption));

end;

procedure TForm1.Image27MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item27/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image27MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image28 Page2
procedure TForm1.Image28Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item28/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image28.Caption));

end;

procedure TForm1.Image28MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item28/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image28MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image29 Page2
procedure TForm1.Image29Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item29/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image29.Caption));

end;

procedure TForm1.Image29MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item29/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image29MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image30 Page2
procedure TForm1.Image30Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item30/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image30.Caption));

end;

procedure TForm1.Image30MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item30/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image30MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image31 Page2
procedure TForm1.Image31Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item31/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image31.Caption));

end;

procedure TForm1.Image31MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item31/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image31MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image32 Page2
procedure TForm1.Image32Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item32/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image32.Caption));

end;

procedure TForm1.Image32MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item32/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image32MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image33 Page2
procedure TForm1.Image33Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item33/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image33.Caption));

end;

procedure TForm1.Image33MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item33/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image33MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image34 Page2
procedure TForm1.Image34Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item34/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image34.Caption));

end;

procedure TForm1.Image34MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item34/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image34MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image35 Page2
procedure TForm1.Image35Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item35/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView2(item_desc,page_desc,StrToInt(Form1.Image35.Caption));

end;

procedure TForm1.Image35MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item35/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image35MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

//Image36 Page2
procedure TForm1.Image36Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item36/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image36.Caption));

end;

procedure TForm1.Image36MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page2/Item36/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  if item_desc = 'none' then HoverView2(select_prog,page_desc)
  else
   HoverView2(item_desc,page_desc);

end;

procedure TForm1.Image36MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page2/Description','');
  HoverView2(select_prog,page_desc);
end;

// --------------------------------  page 3 ---------------------------------------

//image37 page3
procedure TForm1.Image37Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item37/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView3(item_desc,page_desc,StrToInt(Form1.Image37.Caption));

end;

procedure TForm1.Image37MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item37/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);
end;

procedure TForm1.Image37MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);

end;

//Image38 page3
procedure TForm1.Image38Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item38/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image38.Caption));

end;

procedure TForm1.Image38MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item38/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
    if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image38MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image39 page3
procedure TForm1.Image39Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item39/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image39.Caption));

end;

procedure TForm1.Image39MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item39/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image39MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image40 page3
procedure TForm1.Image40Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item40/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image40.Caption));

end;

procedure TForm1.Image40MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item40/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image40MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image41 page3
procedure TForm1.Image41Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item41/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image41.Caption));

end;

procedure TForm1.Image41MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item41/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image41MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image42 page3
procedure TForm1.Image42Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item42/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image42.Caption));

end;

procedure TForm1.Image42MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item42/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image42MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image43 page3
procedure TForm1.Image43Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item43/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image43.Caption));

end;

procedure TForm1.Image43MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item43/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image43MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image44 page3
procedure TForm1.Image44Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item44/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image44.Caption));

end;

procedure TForm1.Image44MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item44/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image44MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image45 page3
procedure TForm1.Image45Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item45/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image45.Caption));

end;

procedure TForm1.Image45MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item45/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image45MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image46 page3
procedure TForm1.Image46Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item46/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image46.Caption));

end;

procedure TForm1.Image46MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item46/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image46MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image47 page3
procedure TForm1.Image47Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item47/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView3(item_desc,page_desc,StrToInt(Form1.Image47.Caption));

end;

procedure TForm1.Image47MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item47/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image47MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

//Image48 page3
procedure TForm1.Image48Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item48/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image48.Caption));

end;

procedure TForm1.Image48MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page3/Item48/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  if item_desc = 'none' then HoverView3(select_prog,page_desc)
  else
   HoverView3(item_desc,page_desc);

end;

procedure TForm1.Image48MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page3/Description','');
  HoverView3(select_prog,page_desc);
end;

// --------------------------------  page 4 ---------------------------------------

//image49 page4
procedure TForm1.Image49Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item49/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView4(item_desc,page_desc,StrToInt(Form1.Image49.Caption));

end;

procedure TForm1.Image49MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item49/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);
end;

procedure TForm1.Image49MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);

end;

//Image50 page4
procedure TForm1.Image50Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item50/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image50.Caption));

end;

procedure TForm1.Image50MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item50/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
    if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image50MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image51 page4
procedure TForm1.Image51Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item51/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image51.Caption));

end;

procedure TForm1.Image51MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item51/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image51MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image52 page4
procedure TForm1.Image52Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item52/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image52.Caption));

end;

procedure TForm1.Image52MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item52/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image52MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image53 page4
procedure TForm1.Image53Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item53/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image53.Caption));

end;

procedure TForm1.Image53MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item53/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image53MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image54 page4
procedure TForm1.Image54Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item54/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image54.Caption));

end;

procedure TForm1.Image54MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item54/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image54MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image55 page4
procedure TForm1.Image55Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item55/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image55.Caption));

end;

procedure TForm1.Image55MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item55/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image55MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image56 page4
procedure TForm1.Image56Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item56/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image56.Caption));

end;

procedure TForm1.Image56MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item56/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image56MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image57 page4
procedure TForm1.Image57Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item57/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image57.Caption));

end;

procedure TForm1.Image57MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item57/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image57MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image58 page4
procedure TForm1.Image58Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item58/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image58.Caption));

end;

procedure TForm1.Image58MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item58/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image58MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image59 page4
procedure TForm1.Image59Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item59/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView4(item_desc,page_desc,StrToInt(Form1.Image59.Caption));

end;

procedure TForm1.Image59MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item59/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image59MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

//Image60 page4
procedure TForm1.Image60Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item60/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image60.Caption));

end;

procedure TForm1.Image60MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page4/Item60/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  if item_desc = 'none' then HoverView4(select_prog,page_desc)
  else
   HoverView4(item_desc,page_desc);

end;

procedure TForm1.Image60MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page4/Description','');
  HoverView4(select_prog,page_desc);
end;

// --------------------------------  page 5 ---------------------------------------

//image61 page5
procedure TForm1.Image61Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item61/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView5(item_desc,page_desc,StrToInt(Form1.Image61.Caption));

end;

procedure TForm1.Image61MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item61/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);
end;

procedure TForm1.Image61MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);

end;

//Image62 page5
procedure TForm1.Image62Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item62/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image62.Caption));

end;

procedure TForm1.Image62MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item62/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
    if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image62MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image63 page5
procedure TForm1.Image63Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item63/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image63.Caption));

end;

procedure TForm1.Image63MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item63/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image63MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image64 page5
procedure TForm1.Image64Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item64/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image64.Caption));

end;

procedure TForm1.Image64MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item64/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image64MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image65 page5
procedure TForm1.Image65Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item65/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image65.Caption));

end;

procedure TForm1.Image65MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item65/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image65MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image66 page5
procedure TForm1.Image66Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item66/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image66.Caption));

end;

procedure TForm1.Image66MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item66/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image66MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image67 page5
procedure TForm1.Image67Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item67/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image67.Caption));

end;

procedure TForm1.Image67MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item67/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image67MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image68 page5
procedure TForm1.Image68Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item68/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image68.Caption));

end;

procedure TForm1.Image68MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item68/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image68MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image69 page5
procedure TForm1.Image69Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item69/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image69.Caption));

end;

procedure TForm1.Image69MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item69/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image69MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image70 page5
procedure TForm1.Image70Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item70/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image70.Caption));

end;

procedure TForm1.Image70MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item70/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image70MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image71 page5
procedure TForm1.Image71Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item71/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView5(item_desc,page_desc,StrToInt(Form1.Image71.Caption));

end;

procedure TForm1.Image71MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item71/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image71MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

//Image72 page5
procedure TForm1.Image72Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item72/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image72.Caption));

end;

procedure TForm1.Image72MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page5/Item72/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  if item_desc = 'none' then HoverView5(select_prog,page_desc)
  else
   HoverView5(item_desc,page_desc);

end;

procedure TForm1.Image72MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page5/Description','');
  HoverView5(select_prog,page_desc);
end;

// --------------------------------  page 6 ---------------------------------------

//image73 page6
procedure TForm1.Image73Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item73/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView6(item_desc,page_desc,StrToInt(Form1.Image73.Caption));

end;

procedure TForm1.Image73MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item73/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);
end;

procedure TForm1.Image73MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);

end;

//Image74 page6
procedure TForm1.Image74Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item74/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image74.Caption));

end;

procedure TForm1.Image74MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item74/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
    if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image74MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image75 page6
procedure TForm1.Image75Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item75/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image75.Caption));

end;

procedure TForm1.Image75MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item75/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image75MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image76 page6
procedure TForm1.Image76Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item76/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image76.Caption));

end;

procedure TForm1.Image76MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item76/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image76MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image77 page6
procedure TForm1.Image77Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item77/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image77.Caption));

end;

procedure TForm1.Image77MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item77/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image77MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image78 page6
procedure TForm1.Image78Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item78/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image78.Caption));

end;

procedure TForm1.Image78MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item78/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image78MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image79 page6
procedure TForm1.Image79Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item79/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image79.Caption));

end;

procedure TForm1.Image79MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item79/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image79MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image80 page6
procedure TForm1.Image80Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item80/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image80.Caption));

end;

procedure TForm1.Image80MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item80/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image80MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image81 page6
procedure TForm1.Image81Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item81/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image81.Caption));

end;

procedure TForm1.Image81MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item81/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image81MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image82 page6
procedure TForm1.Image82Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item82/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image82.Caption));

end;

procedure TForm1.Image82MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item82/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image82MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image83 page6
procedure TForm1.Image83Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item83/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView6(item_desc,page_desc,StrToInt(Form1.Image83.Caption));

end;

procedure TForm1.Image83MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item83/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image83MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

//Image84 page6
procedure TForm1.Image84Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item84/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image84.Caption));

end;

procedure TForm1.Image84MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page6/Item84/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  if item_desc = 'none' then HoverView6(select_prog,page_desc)
  else
   HoverView6(item_desc,page_desc);

end;

procedure TForm1.Image84MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page6/Description','');
  HoverView6(select_prog,page_desc);
end;

// --------------------------------  page 7 ---------------------------------------

//image85 page7
procedure TForm1.Image85Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item85/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView7(item_desc,page_desc,StrToInt(Form1.Image85.Caption));

end;

procedure TForm1.Image85MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item85/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);
end;

procedure TForm1.Image85MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);

end;

//Image86 page7
procedure TForm1.Image86Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item86/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image86.Caption));

end;

procedure TForm1.Image86MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item86/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
    if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image86MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image87 page7
procedure TForm1.Image87Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item87/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image87.Caption));

end;

procedure TForm1.Image87MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item87/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image87MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image88 page7
procedure TForm1.Image88Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item88/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image88.Caption));

end;

procedure TForm1.Image88MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item88/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image88MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image89 page7
procedure TForm1.Image89Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item89/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image89.Caption));

end;

procedure TForm1.Image89MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item89/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image89MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image90 page7
procedure TForm1.Image90Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item90/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image90.Caption));

end;

procedure TForm1.Image90MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item90/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image90MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image91 page7
procedure TForm1.Image91Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item91/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image91.Caption));

end;

procedure TForm1.Image91MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item91/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image91MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image92 page7
procedure TForm1.Image92Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item92/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image92.Caption));

end;

procedure TForm1.Image92MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item92/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image92MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image93 page7
procedure TForm1.Image93Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item93/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image93.Caption));

end;

procedure TForm1.Image93MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item93/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image93MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image94 page7
procedure TForm1.Image94Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item94/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image94.Caption));

end;

procedure TForm1.Image94MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item94/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image94MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image95 page7
procedure TForm1.Image95Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item95/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView7(item_desc,page_desc,StrToInt(Form1.Image95.Caption));

end;

procedure TForm1.Image95MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item95/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image95MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

//Image96 page7
procedure TForm1.Image96Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item96/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image96.Caption));

end;

procedure TForm1.Image96MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page7/Item96/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  if item_desc = 'none' then HoverView7(select_prog,page_desc)
  else
   HoverView7(item_desc,page_desc);

end;

procedure TForm1.Image96MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page7/Description','');
  HoverView7(select_prog,page_desc);
end;

// --------------------------------  page 8 ---------------------------------------

//image97 page8
procedure TForm1.Image97Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item97/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView8(item_desc,page_desc,StrToInt(Form1.Image97.Caption));

end;

procedure TForm1.Image97MouseEnter(Sender: TObject);
 var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item97/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);
end;

procedure TForm1.Image97MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);

end;

//Image98 page8
procedure TForm1.Image98Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item98/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image98.Caption));

end;

procedure TForm1.Image98MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item98/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
    if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image98MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image99 page8
procedure TForm1.Image99Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item99/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image99.Caption));

end;

procedure TForm1.Image99MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item99/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image99MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image100 page8
procedure TForm1.Image100Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item100/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image100.Caption));

end;

procedure TForm1.Image100MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item100/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image100MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image101 page8
procedure TForm1.Image101Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item101/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image101.Caption));

end;

procedure TForm1.Image101MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item101/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image101MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image102 page8
procedure TForm1.Image102Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item102/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image102.Caption));

end;

procedure TForm1.Image102MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item102/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image102MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image103 page8
procedure TForm1.Image103Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item103/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image103.Caption));

end;

procedure TForm1.Image103MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item103/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image103MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image104 page8
procedure TForm1.Image104Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item104/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image104.Caption));

end;

procedure TForm1.Image104MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item104/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image104MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image105 page8
procedure TForm1.Image105Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item105/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image105.Caption));

end;

procedure TForm1.Image105MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item105/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image105MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image106 page8
procedure TForm1.Image106Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item106/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image106.Caption));

end;

procedure TForm1.Image106MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item106/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image106MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image107 page8
procedure TForm1.Image107Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item107/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView8(item_desc,page_desc,StrToInt(Form1.Image107.Caption));

end;

procedure TForm1.Image107MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item107/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image107MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

//Image108 page8
procedure TForm1.Image108Click(Sender: TObject);
var item_desc,page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item108/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  SelectView1(item_desc,page_desc,StrToInt(Form1.Image108.Caption));

end;

procedure TForm1.Image108MouseEnter(Sender: TObject);
var item_desc, page_desc:string;
begin
  item_desc:=Form1.XMLConfig1.GetValue('Page8/Item108/Text','');
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  if item_desc = 'none' then HoverView8(select_prog,page_desc)
  else
   HoverView8(item_desc,page_desc);

end;

procedure TForm1.Image108MouseLeave(Sender: TObject);
var page_desc:string;
begin
  page_desc:=Form1.XMLConfig1.GetValue('Page8/Description','');
  HoverView8(select_prog,page_desc);
end;

initialization
  {$I setupall.lrs}

end.

